home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK2.toast / Development Kits (Disc 2) / QuickTime / Programming Stuff / Documentation / develop articles / develop Issue 23 / Internet Config / IC 1.1 / ICProgKit1.1 / APIs / ICKeys.p < prev    next >
Encoding:
Text File  |  1997-02-26  |  5.5 KB  |  159 lines  |  [TEXT/PJMM]
  1. unit ICKeys;
  2.  
  3. interface
  4.  
  5.     uses
  6. {$ifc undefined THINK_Pascal}
  7.         Types, Files, 
  8. {$endc}
  9.         AppleTalk, Aliases;
  10.  
  11. const
  12.     kICRealName='RealName';    (* PString *)
  13.     kICEmail='Email';    (* PString -- user@host.domain *)
  14.     kICMailAccount='MailAccount';    (* PString -- user@host.domain *)
  15.     kICMailPassword='MailPassword';    (* PString -- scrambled *)
  16.     kICNewsAuthUsername='NewsAuthUsername';    (* PString -- host.domain *)
  17.     kICNewsAuthPassword='NewsAuthPassword';    (* PString -- scrambled *)
  18.     kICArchiePreferred='ArchiePreferred';    (* PString -- formatted *)
  19.     kICArchieAll='ArchieAll';    (* STR# -- formatted *)
  20.     kICUMichPreferred='UMichPreferred';    (* PString -- formatted *)
  21.     kICUMichAll='UMichAll';    (* STR# -- formatted *)
  22.     kICInfoMacPreferred='InfoMacPreferred';    (* PString -- formatted *)
  23.     kICInfoMacAll='InfoMacAll';    (* STR# -- formatted *)
  24.     kICPhHost='PhHost';    (* PString -- host.domain *)
  25.     kICWhoisHost='WhoisHost';    (* PString -- host.domain *)
  26.     kICFingerHost='FingerHost';    (* PString -- host.domain *)
  27.     kICFTPHost='FTPHost';    (* PString -- host.domain *)
  28.     kICTelnetHost='TelnetHost';    (* PString -- host.domain *)
  29.     kICSMTPHost='SMTPHost';    (* PString -- host.domain *)
  30.     kICNNTPHost='NNTPHost';    (* PString -- host.domain *)
  31.     kICGopherHost='GopherHost';    (* PString -- host.domain *)
  32.     kICLDAPServer='LDAPServer';    (* PString -- host.domain *)
  33.     kICLDAPSearchbase='LDAPSearchbase';    (* PString -- string LDAP thing *)
  34.     kICWWWHomePage='WWWHomePage';    (* PString -- URL *)
  35.     kICWAISGateway='WAISGateway';    (* PString -- no idea *)
  36.     kICListFont='ListFont';    (* ICFontRecord *)
  37.     kICScreenFont='ScreenFont';    (* ICFontRecord *)
  38.     kICPrinterFont='PrinterFont';    (* ICFontRecord *)
  39.     kICTextCreator='TextCreator';    (* ICAppSpec *)
  40.     kICBinaryTypeCreator='BinaryTypeCreator';    (* ICFileInfo *)
  41.     kICDownloadFolder='DownloadFolder';    (* ICFileSpec *)
  42.     kICSignature='Signature';    (* TEXT *)
  43.     kICOrganization='Organization';    (* PString *)
  44.     kICPlan='Plan';    (* TEXT *)
  45.     kICQuotingString='QuotingString';    (* PString *)
  46.     kICMailHeaders='MailHeaders';    (* TEXT *)
  47.     kICNewsHeaders='NewsHeaders';    (* TEXT *)
  48.     kICMapping='Mapping';    (* ICMapEntries *)
  49.     kICCharacterSet='CharacterSet';    (* ICCharTable *)
  50.     kICHelper='Helper•';    (* ICAppSpec *)
  51.     kICServices='Services';    (* ICServices *)
  52.  
  53.     type
  54.         ICFontRecord = record
  55.                 size: integer;
  56.                 face: Style;
  57.                 font: Str255;
  58.             end;
  59.         ICFontRecordPtr = ^ICFontRecord;
  60.         ICFontRecordHandle = ^ICFontRecordPtr;
  61.  
  62.         ICCharTable = record
  63.                 net_to_mac: packed array[char] of char;
  64.                 mac_to_net: packed array[char] of char;
  65.             end;
  66.         ICCharTablePtr = ^ICCharTable;
  67.         ICCharTableHandle = ^ICCharTablePtr;
  68.  
  69.         ICAppSpec = record
  70.                 fCreator: OSType;
  71.                 name: Str63;
  72.             end;
  73.         ICAppSpecPtr = ^ICAppSpec;
  74.         ICAppSpecHandle = ^ICAppSpecPtr;
  75.  
  76.         ICFileInfo = record
  77.                 fType: OSType;
  78.                 fCreator: OSType;
  79.                 name: Str63;
  80.             end;
  81.         ICFileInfoPtr = ^ICFileInfo;
  82.         ICFileInfoHandle = ^ICFileInfoPtr;
  83.  
  84.         ICFileSpec = record
  85.                 vol_name: Str31;
  86.                 vol_creation_date: longint;
  87.                 fss: FSSpec;                    (* vRefNum field is of no value *)
  88.                 alias: AliasRecord;     (* plus extra data, aliasSize 0 means no alias manager present when ICFileSpecification was created *)
  89.             end;
  90.         ICFileSpecPtr = ^ICFileSpec;
  91.         ICFileSpecHandle = ^ICFileSpecPtr;
  92.     const
  93.         ICfile_spec_header_size = sizeof(ICFileSpec) - sizeof(AliasRecord);
  94.  
  95.     type
  96.         ICMapEntry = record
  97.                 total_length: integer;            (* from beginning of record *)
  98.                 fixed_length: integer;            (* from beginning of record *)
  99.                 version: integer;
  100.                 file_type: OSType;
  101.                 file_creator: OSType;
  102.                 post_creator : OSType;
  103.                 flags: longint;
  104.                 (* variable part starts here *)
  105.                 extension: Str255;                    (* these strings are tightly packed *)
  106.                 creator_app_name: Str255;        (* which means, these ones might have an *)
  107.                 post_app_name : Str255;            (* odd address *)
  108.                 MIME_type: Str255;                    
  109.                 entry_name: Str255;
  110.             end;
  111.         ICMapEntryPtr = ^ICMapEntry;
  112.         ICMapEntryHandle = ^ICMapEntryPtr;
  113.  
  114.     const
  115.         (* bits and masks for the flags of the ICMapEntry *)
  116.         ICmap_binary_bit = 0;                    (* file should be transfered in binary as opposed to text mode *)
  117.         ICmap_binary_mask = $00000001;
  118.         ICmap_resource_fork_bit = 1;        (* the resource fork of the file is significant *)
  119.         ICmap_resource_fork_mask = $00000002;
  120.         ICmap_data_fork_bit = 2;                (* the data fork of the file is significant *)
  121.         ICmap_data_fork_mask = $00000004;
  122.  
  123.         ICmap_post_bit = 3;                            (* post process using post fields *)
  124.         ICmap_post_mask = $00000008;
  125.  
  126.         ICmap_not_incoming_bit = 4;            (* ignore this mapping for incoming files *)
  127.         ICmap_not_incoming_mask = $00000010;
  128.         ICmap_not_outgoing_bit = 5;            (* ignore this mapping for outgoing files *)
  129.         ICmap_not_outgoing_mask = $00000020;
  130.  
  131.         ICmap_fixed_length = 22;                (* number in fixed_length field *)
  132.         
  133.     type
  134.         ICServiceEntry = record
  135.                 name: Str255;                        (* this strings is tightly packed *)
  136.                 port: integer;                        (* which means, these fields might have an *)
  137.                 flags: integer;                        (* odd address *)
  138.             end;
  139.         ICServiceEntryPtr = ^ICServiceEntry;
  140.         ICServiceEntryHandle = ICServiceEntryPtr;
  141.  
  142.         ICServices = record
  143.                 count: integer;
  144.                 services: array[1..1] of ICServiceEntry;        (* this array is packed, so you can't index it directly *)
  145.             end;
  146.         ICServicesPtr = ^ICServices;
  147.         ICServicesHandle = ^ICServicesPtr;
  148.  
  149.     const
  150.         (* bits and masks for the flags of the ICServiceEntry *)
  151.         ICservices_tcp_bit = 0;                (* this is a TCP service *)
  152.         ICservices_tcp_mask = $00000001;
  153.         ICservices_udp_bit = 1;                (* this is a UDP service *)
  154.         ICservices_udp_mask = $00000002;
  155.         (* both bits can be set, which means the service is both TCP and UDP, eg daytime *)
  156.  
  157. implementation
  158.  
  159. end. (* ICKeys *)